home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / amiga-internet-seiten / magazin / a04-97 / listing2 < prev    next >
Text File  |  1997-03-22  |  2KB  |  56 lines
  1. ; Demonstriert einige Funktionen des Installers
  2.  
  3. (user 2)
  4.  
  5. ; Prozedur, die Versionsinformationen ausgibt
  6. (procedure P_Version #pv_name (
  7.   (set #pv_info (getversion #pv_name))
  8.   (set #pv_ver  (shiftright #pv_info 16))
  9.   (set #pv_rev  (bitand     #pv_info $FFFF))
  10.   (message #pv_name " Version: " #pv_ver "." #pv_rev)
  11. ))
  12.  
  13. (set #cpu (database "cpu"))
  14. (message ("\n\nSie haben eine %s CPU in ihrem Rechner " #cpu)
  15.   (if (database "fpu" "NOFPU") " (kein mathematischer Coprozessor)")
  16. )
  17.  
  18. (set #d (getdevice "libs:"))
  19. (message "libs: befindet sich auf Gerät " #d
  20.  " (Datenträger \"" (getassign #d 'vad') "\")")
  21.  
  22. (if (getassign "df1" "d")
  23.   (message "Zweites Diskettenlaufwerk gefunden"))
  24.  
  25. (if (<> (getassign "Work" "v") "" )
  26.   (message "Datenträger mit Name \"Work:\" gefunden")
  27.   (message "Kein Datenträger mit Name \"Work:\" im System")
  28. )
  29.  
  30. (P_Version "devs:parallel.device")
  31.  
  32. ; die Option choices kann auch mit Variablen umgehen:
  33. (set #fpu
  34.   (if (<> (database "fpu") "NOFPU") "Optimierte Version" ""))
  35.  
  36. (debug "Inhalt der Variable #fpu: " #fpu)
  37.  
  38. ; Falls #fpu leer sein sollte, erscheinen nur die letzten beiden
  39. ; Optionen auf dem Bildschirm, die Bedeutung der Bits bleibt
  40. ; aber unverändert.
  41. (set #parts
  42.   (askoptions 
  43.     (prompt "Welche Teile sollen installiert werden?")
  44.     (help "")
  45.     (choices #fpu "Dokumentation" "Beispiele")
  46. ))         ;  0    1               2
  47.  
  48. (if #parts
  49.   (message "Gewählt:\n"
  50.     (if (IN #parts 0) "FPU-Version\n")
  51.     (if (IN #parts 1) "Dokumentation\n")  
  52.     (if (IN #parts 2) "Beispiele")
  53.   )
  54.   (message "Nichts ausgewählt. Skript wird beendet.")
  55. )
  56.